home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / edu / grskill2 / binuser.bas next >
Encoding:
BASIC Source File  |  1993-04-10  |  5.5 KB  |  169 lines
  1. DEFINT A-Z
  2. 'BINLT.BAS
  3.  
  4. '$INCLUDE: 'BINGO.BI'
  5.  
  6. SUB UnusedPuzWds (K, Cnf AS Config) STATIC
  7.  
  8. SELECT CASE K
  9. CASE 1
  10.   REDIM ZK$(MaxWL), ZL$(MaxWL)
  11.   T8 = 0
  12.   PRINT "GOING INTO LOOP"
  13.   FOR X = 1 TO J
  14.     IF LEN(Z$(X)) <> 0 THEN
  15.       T8 = T8 + 1:
  16.       PRINT "ASSIGNING T8"
  17.       ZK$(T8) = Z$(X): ZL$(T8) = ZB$(X)
  18.  
  19.     END IF
  20.   NEXT
  21.   GOSUB UnusedAlpha
  22. CASE 2
  23.   REDIM ScrBuf2(2000)
  24.   MScrnSave 2, 1, 24, 80, ScrBuf2(0)
  25.   Row = (T8 \ 4) + 4
  26.   Y5 = 6
  27.   IF Row < 6 THEN Row = 6
  28.   MakeBox 5, 1, Row, 77, 4
  29.   LOCATE Y5, 5, 0
  30.   IF T8 = 0 THEN
  31.     MQPrint "All words in the word list were used.", Cnf.PulBar
  32.     Line24Msg 22
  33.   ELSE
  34.     FOR C5 = 1 TO T8 STEP 4
  35.     LOCATE Y5, 2: MQPrint ZK$(C5), Cnf.HelpC
  36.     LOCATE Y5, 21: MQPrint ZK$(C5 + 1), Cnf.HelpC
  37.     LOCATE Y5, 40: MQPrint ZK$(C5 + 2), Cnf.HelpC
  38.     LOCATE Y5, 59: MQPrint ZK$(C5 + 3), Cnf.HelpC: Y5 = Y5 + 1: NEXT
  39.     Line24Msg 10
  40.     IF ZI$ = "P" THEN GOSUB PrUnused
  41.   END IF
  42.   MScrnRest 2, 1, 24, 80, ScrBuf2(0)
  43.   ERASE ScrBuf2
  44. CASE 3
  45.   GOSUB PrUnused
  46. END SELECT
  47.  
  48. EXIT SUB
  49.  
  50. UnusedAlpha:
  51. DA = 4
  52. WHILE DA < T8
  53.   DA = DA + DA
  54. WEND
  55. DA = DA - 1
  56. DO
  57.   DA = DA \ 2
  58.   IF DA < 1 THEN EXIT DO
  59.   FOR I = 1 TO T8 - DA
  60.     FOR M3 = I TO 1 STEP -DA
  61.       IF ZK$(M3 + DA) > ZK$(M3) THEN EXIT FOR
  62.       SWAP ZK$(M3 + DA), ZK$(M3): SWAP ZL$(M3 + DA), ZL$(M3)
  63.     NEXT M3
  64.   NEXT I
  65. LOOP
  66. RETURN
  67.       
  68. PrUnused:
  69. Pgn = 1: M2 = 54
  70. prnReadyTest 2
  71. IF A9 = 3 THEN EXIT SUB
  72. IF T5T = 3 THEN WIDTH "LPT1:", 255
  73. LPRINT "The following"; T8; "words from "; ZWL$; ".WL were not used.": LPRINT STRING$(75, 42)
  74. FOR C5 = 1 TO T8 STEP 4
  75.   LPRINT TAB(2); ZK$(C5); TAB(21); ZK$(C5 + 1); TAB(40); ZK$(C5 + 2); TAB(59); ZK$(C5 + 3)
  76. NEXT
  77. LPRINT CHR$(12)
  78. RETURN
  79.  
  80.  
  81. Line24Msg 3
  82. IF ZI$ <> "P" THEN
  83.   LOCATE , , 0
  84.   EXIT SUB
  85. END IF
  86. prnReadyTest 2
  87. IF A9 = 3 THEN EXIT SUB
  88. 'WHAT ABOUT PITCH '***
  89. IF PCT$ = "WISORDER.DOC" THEN
  90.   LPRINT "                          Computer Programs from:"
  91.   LPRINT " "
  92.   LPRINT "                      WISCO COMPUTING,  P. O. Box 8"
  93.   LPRINT "                     Wisconsin Rapids, WI 54495-0008"
  94.   LPRINT "                             (715) 423-8189"
  95.   LPRINT " "
  96.   LPRINT "   Quantity        Product                             Unit Price"
  97.   LPRINT "   _____ GRADEBOOK POWER       IBM 512K   Indiv. License   $59.00"
  98.   LPRINT "   _____ GRADING SKILLS POWER  IBM 512K   Indiv. License   $59.00"
  99.   LPRINT "   _____ CROSSWORD POWER       IBM 512K   Indiv. License   $39.95"
  100.   LPRINT "   _____ VOCABULARY POWER      IBM 512K   Indiv. License   $39.95"
  101.   LPRINT "   _____ SURVEY POWER          IBM 512K   Indiv. License   $39.95"
  102.   LPRINT "               -------------------------------"
  103.   LPRINT "       A Site License is available for all products at 3 times the"
  104.   LPRINT "       cost of an Individual License.  A Site License allows all"
  105.   LPRINT "       employees performing their duties for the Site to legally"
  106.   LPRINT "       use the program."
  107.   LPRINT " "
  108.   LPRINT "   _____ _____________________________  Site License    __________"
  109.   LPRINT "               --------------------------------"
  110.   LPRINT "   _____ Extra GRADEBOOK POWER MANUALS/Site License     $2.00 ea."
  111.   LPRINT "   _____ Extra GRADING SKILLS POWER MAN./Site License   $2.00 ea."
  112.   LPRINT "   _____ Extra CROSSWORD POWER MANUALS/Site License       .50 ea."
  113.   LPRINT "   _____ Extra VOCABULARY POWER MANUALS/Site License      .50 ea."
  114.   LPRINT "   _____ Extra SURVEY POWER MANUALS/Site License        $2.00 ea."
  115.   LPRINT "               -------------------------------           ----------"
  116.   LPRINT "                                             SUB TOTAL   __________"
  117.   LPRINT "                                WISCONSIN SALES TAX 5%   __________"
  118.   LPRINT "                                        TOTAL SHIPPING       $2.00"
  119.   LPRINT "                                                         ----------"
  120.   LPRINT "                                           TOTAL ORDER   __________"
  121.   LPRINT "             FOREIGN CUSTOMERS - PAYMENT MUST BE IN US DOLLARS"
  122.   LPRINT "    ---------------------------------------------------------------"
  123.   IF Module > 10 THEN
  124.     LPRINT "   Form SDN-93 -V2.00"
  125.   ELSE
  126.     LPRINT "   Cust -93 -V2.00"
  127.   END IF
  128.   LPRINT "   Please ship the latest version of these programs to:"
  129.   LPRINT " "
  130.   LPRINT " "
  131.   LPRINT "   Registered Owner________________________________________________"
  132.   LPRINT " "
  133.   LPRINT "   Street Address__________________________________________________"
  134.   LPRINT " "
  135.   LPRINT "   City___________________________  State______ Zip Code___________"
  136.   LPRINT " "
  137.   LPRINT "   IBM Disk Size Needed - (either 3 1/2 in. OR 5 1/4 in.)  ________"
  138.   LPRINT " "
  139.   LPRINT "   Circle Method of Payment  CHECK  Money Order  VISA  MasterCard"
  140.   LPRINT " "
  141.   LPRINT "   Name on Credit Card_____________________________________________"
  142.   LPRINT " "
  143.   LPRINT "   Card No.____________________________________ Exp. Date _________"
  144.   LPRINT " "
  145.   LPRINT "   Where did you learn about our programs?_________________________"
  146.   LPRINT CHR$(12)
  147. ELSE
  148.   K = EXIST(PCT$)
  149.   IF K THEN
  150.     Line24Msg 108
  151.     OPEN PCT$ FOR INPUT AS #1
  152.     WIDTH "LPT1:", 96: OPEN "O", 2, "LPT1:"
  153.     DO WHILE NOT EOF(1)
  154.       PTX$ = ""
  155.       LINE INPUT #1, PTX$
  156.       PRINT #2, LM$; PTX$
  157.     LOOP: CLOSE #1
  158.     CLOSE #2
  159.   ELSE
  160.     LOCATE 24, 1, 0: MQPrint SPACE$(80), Cnf.ActivCh
  161.     LOCATE 24, 32: MQPrint PCT$ + " not found.", Cnf.ActivCh
  162.     BEEP   '*** ERRMSG  MSGBOX
  163.     Pause 36
  164.   END IF
  165. END IF
  166.  
  167. END SUB
  168.  
  169.